home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / timfram.exe / TIMEFRAM.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-06-30  |  4.1 KB  |  107 lines
  1. Form1
  2.     TimeFrame
  3. Form1
  4. Label1
  5. Interval
  6. lblInterval
  7. Label2
  8. scrInterval    
  9. Frame1
  10. Clock Position
  11. rbtnLeft
  12. on the Left
  13.     rbtnRight
  14. on the Right
  15. btnOk
  16. Timer1
  17. btnEnd
  18. Label3
  19. by  J. Br
  20. Timer1_Timer\
  21. lblTime~
  22. caption
  23. GetTim
  24. btnOk_Click
  25. Peekerp
  26. Form1
  27. hactwin
  28. GetActiveWindow
  29.     lblActWin
  30. acwincap
  31. GetWindowTextu
  32. dummy
  33. lblActWinCap!
  34. hawin
  35. awincap
  36. GetModuleFileName
  37. SetWindowText
  38. substrU
  39. GetWindowTextLength
  40. awincaplenR
  41. caplen
  42. lblActWinCap_Click
  43. hiawin
  44. GetWindowWord
  45. GWW_HINSTANCE
  46. lblActWinModh
  47. lblIActWinw
  48. lblTime_Click)
  49. holdwin
  50. capold
  51. Form_Click
  52. @    Form_Load<
  53. hownwin
  54. txtInterval_Change
  55. Timer1%
  56. interval
  57. txtIntervalK
  58. scrInterval
  59. Value
  60. lblInterval6
  61. scrInterval_Change
  62. Timer
  63. Label1_Click
  64. Form_Unload
  65. Cancel
  66. strin}
  67. WindowState
  68. Form_Resize
  69. btnEnd_Click
  70. init_interval
  71. init_timer
  72. parent
  73.     parentwin
  74. SetActiveWindow
  75. newcap
  76. acpold
  77. rbtnLeft
  78.  TIMEFRAME by J. BraeuchiP
  79.  Display current time in caption of active Windowt
  80.  Initial Interval (sec) 
  81.  Handle of Parentn
  82.  Handle of Old
  83.  Caption of Oldi    
  84. Timer1_Timer
  85.    Add Current Time to Caption of Active Window
  86.  Handle of Active Window , exit if own handle
  87.  Update Time if still same Window active
  88.  Choose wether Clock is displayed left or right of caption
  89.  Restore Caption
  90.  Get Caption of active Window
  91.  +1 for terminating 0
  92.  cut terminating 0
  93.  immediate display
  94. btnOk_Click
  95.    Minimize Program"
  96. Form_Load
  97.  Millisecondsm
  98. scrInterval_Change
  99.    Interval Scrollbar Change
  100. Form_Unload
  101.    Disable Timer
  102.  Restore Caption
  103. Form_Resize
  104.    Switch to parent if minimized
  105. btnEnd_Click
  106.    End Program
  107.